Top 10k strings from MicroHobby Semanal - Issue 045-048 (1985)(Hobby Press)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
26 **********************
16 y,x;a$(n);
9 ;"PARE LA CINTA":
6 ;" PARE LA CINTA ":
6 ;" ":
6
5 punt=punt+100
5 ky,kx;" ";
5 fv,cv;d$(1
5 fb,cb;d$(1
4 y,x;a$(n):
4 ;"VIDAS:";vid;
4 ;"RECORD:";rec
4 ;"PUNTOS:";punt;
4 (NPROG/DOS)
4 "22",CERO;B$:
4 * *
3 final=final+p1:
3 cod<defcod):
3 INSTRUCCIONES
3 ;"PULSE UNA TECLA":
3 ;"PULSA CUALQUIERA PARA CONTINUAR ":
3 ;" "
3 ,HORIZONTAL;"
3 *((d-b)/(c-a))
3 "23693",sa:
3 "23624",ca:
2 x=xx+ca*p1:
2 x-ca,y-sa:
2 x-ca,y+sa:
2 x+ca,y-sa:
2 x+ca,y+sa:
2 s(a)=s(a)+1
2 punt=punt+(beng*10
2 pun=pun+50
2 maxcod=maxcod+u:
2 l(i+u)=final:
2 l$=".---":
2 l$="-..-":
2 final+p1)=l$:
2 fin=l(cod+u)-u:
2 dy21=La2-dy2
2 dy1=(La1*dy)/longitud
2 dy12=La1-dy1
2 dy0=longitud-dy
2 dx1=(dx*dy1)/dy
2 d$=n$(defcod,k
2 cod<defcod
2 camp=punt:
2 c3=c3*p1-x*p2:
2 c2=c2*p1-x*p2:
2 c1=c1*p1-x*p2:
2 b$=" "
2 UNO;"PONGA EN MARCHA LA CINTA";
2 SPACE-UNO,X1
2 SPACE-UNO,CERO:
2 SPACE,LINEA:
2 SPACE,CERO:
2 Q$=("000"+
2 PRESENTACION
2 PASOS=PASOS+1
2 MICRO
2 I,CERO;,,:
2 F(M),C(M);N(M)
2 F(K),C(K);N(K)
2 DOS=UNO+UNO
2 Cargador f
2 CERO;" ";
2 C(N)=B(N):
2 C$=" Por favor, elija un programa "
2 B$=" "
2 ="L")-(378
2 ;"____________________________":
2 ;"Pulsa una tecla":
2 ;"PUNTOS";
2 ;"PULSE UNA TECLA PARA SEGUIR":
2 ;"PULSE CUALQUIER TECLA."
2 ;"CONSTANTE":
2 ;" PERSONAL "
2 ;" CANASTA "
2 ;" Ahora dame los elementos: "
2 ;" "
2 ,e(f);" ":
2 ," ",0
2 *** Salto ***
2 *** Disparo ***
2 *** CINTA-MICROHOBBY ***
2 (ll,cc)=107
2 (ll,cc)=106
2 (VALOR)<"A"
2 "LONGITUD DE LA ARISTA MAS CER- CANA A F2= ";La2
2 "LONGITUD DE LA ARISTA MAS CER- CANA A F1= ";La1
2 "ALTURA SOBRE LA LINEA DEL HORIZONTE= ";dyh
2 "64"+NPROG)
2 "5";"cara: ";
2 "5";"Programa: ";
2 "5";"Programa inexistente":
2 "5";"'R' Vuelve al menu"
2 "5";"'L' Carga el programa";
2 "32"-I;C$(
2 "23636",f2:
2 "23635",f1:
2 "22",CERO;C$(I
2 "22",CERO;B$
2 "22",CERO;
2 Salto/Disparo
2 SIN REPETICION
2
2
2
2
2
1 zf=(yf*de)/
1 z3=z3+p1*a3:
1 z$="LAGARTIJOS":
1 z$="COBARDICA":
1 z$="1985":
1 z$="00000"
1 z$="'VALIENTE'":
1 yy>ny)+(my-yy
1 yf=(np*a(5
1 y>ny)+(my-y
1 y=yy+sa*p1:
1 y=yy+sa*p1
1 y=y+si*sa:
1 y=ny+(yy-ny
1 y=(y3)*d/(z3+d)+oy:
1 y3=y3+p1*a2:
1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzxzzzzzzzzzzzzzzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzz 8888888888888888888888888888888888888888888888888888888888888888
1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzxzzzzzzzzzzzzzzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzz
1 xx>nx)+(mx-xx
1 x>nx)+(mx-x
1 x=x+si*ca:
1 x=nx+(xx-nx
1 x=(x3)*d/(z3+d)+ox:
1 x3=x3+p1*a1:
1 x12345678901=p2:
1 x-xx,y-yy:
1 x-xx,y-yy,
1 x$=t$(m(x,1
1 u;" LISTADO DE ";d$;" ";
1 u;" ";n$(i,k
1 trazar las aristas mas cercanas a f1 y f2
1 trazar la primera arista (la mayor)
1 t)=t$(m(x,2
1 t)=r$(a,x,
1 t$(m)=t$(m-1
1 sa=ca/p1*p2:
1 s(d)=s(d-1
1 s$=(s$+" ")(
1 punt=punt-si:
1 punt=punt-k:
1 punt=punt-(5
1 punt=punt-(10
1 punt=punt+si
1 punt=punt+k:
1 punt=punt+1000
1 punt=punt+(10
1 pun=pun+100
1 pongo draw en la linea siguiente para probar pero es plot
1 p2=ny+(y-ny
1 p1=p1+l(i)-l(i+u):
1 p1=nx+(x-nx
1 p1+w+k);" ";p$(w+tir+p1
1 p1+final+si)=l$+p$(l(i+u)
1 p(punt+u)=i:
1 p(punt+u)=b:
1 p(punt+tir)=fin:
1 p(punt+k)=n:
1 p(punt)=lin:
1 p(punt)=a:
1 p$(w+k)+p1+w+k:
1 p$(n+k)+tir:
1 p$(n+k)+n+p1+k:
1 n=p(punt+k):
1 maxcod=cod-u:
1 maxcod<defcod
1 m$=" SOLO TENGO UN DATO":
1 m$=" O.K. STACK 'X' EN MEMORIA "+c$:
1 m$=" O.K. RESULTADO EN STACK 'X'":
1 m$=" O.K. ORDENADA EN ORIGEN EN 'X' PENDIENTE EN 'Y', COEFICIENTE DE CORRELACCION EN 'Z' ":
1 m$=" O.K. MEDIA EN 'X' , DESCIACION TIPICA (STD) EN 'Y', COEFI- CIENTE DE VARIACION EN 'Z' ":
1 m$=" O.K. LAS MEMORIAS 7,8Y9 ESTAN EN UN ARRAY 'R(1,2Y3)', PUEDE INTRODUCIR SUMANDOS "
1 m$=" O.K. FIJO "+
1 m$=" NO EXISTE ESA MEMORIA"
1 m$=" M(7)=n; M(8)=
1 m$=" CALCULADORA PREPARADA":
1 longitud=La
1 ll,cc;" ":
1 lin=p(punt):
1 li;" VIDAS"
1 l(w)=l(w)+p1:
1 l(i+u)-u):
1 l(cod+u)-u:
1 l$=p$(l(i)
1 l$=".....":
1 l$="....-":
1 l$="....":
1 l$="...--":
1 l$="...-":
1 l$="..-.":
1 l$="..--..":
1 l$="..---":
1 l$=".-..-.":
1 l$=".-..":
1 l$=".--.":
1 l$=".----":
1 l$="-....":
1 l$="-...-":
1 l$="-.-.-.":
1 l$="-.-.":
1 l$="-.--":
1 l$="--...":
1 l$="--..":
1 l$="--.-":
1 l$="---...":
1 l$="---..":
1 l$="----.":
1 l$="-----":
1 items=items+1
1 i=p(punt+u):
1 i$=i$+" ":
1 h;"... ";:
1 g$(f)="1":
1 fv2,cv2;d$(1
1 fuel acabado
1 final=l(cod):
1 fin=p(punt+tir):
1 fb2,cb2;d$(1
1 f+" DECIMALES"
1 f$="este espacio esta reservado para una frase o una serie de datos que puedes imtroducir tu, -rompiendo- el progama y copiandolo en la linea 6000.":
1 explosion misiles
1 dy2=(La2*dy)/longitud
1 dy2=(La*dy)/longitud
1 dx=((df-dx)*dy2)/dy
1 dx2=((df-dx)*dy2)/dy
1 dx-dx1,dyh-dy1:
1 dx-dx1,-(dy0-dy12):
1 distancia entre focos
1 d(f)=d(f)-1
1 d(f),ee;" ":
1 d$=n$(maxcod,tir
1 d$=n$(maxcod,k
1 d$=" O PROMEDIE EL SUMATORIO"
1 d$=" CALCULAR, SEGUIDA DE 'ENTER'":
1 d$;" ";a$;" ";b$
1 ca=cod/p2*p1:
1 c$=" INTRODUZCA SIGUIENTE DATO":
1 c$=" INTRODUZCA LA EXPRESION A":
1 beng=beng-1
1 b=p(punt+u):
1 b3=x*p1+c3*p2:
1 b3=b3*p1-x*p2:
1 b2=x*p1+c2*p2:
1 b2=b2*p1-x*p2:
1 b1=x*p1+c1*p2:
1 b1=b1*p1-x*p2:
1 b$=p$(n+tir+p1
1 b$=" ****EN BUSCA DEL TESORO**** "
1 a=p(punt):
1 a8,b8;" ";
1 a6,b6;" ";
1 a5,b5;" ";
1 a4,b4;" ";
1 a3=x*p1+c3*p2:
1 a3=x*p1+b3*p2:
1 a3,b3;" ";
1 a2=x*p1+c2*p2:
1 a2=x*p1+b2*p2:
1 a2,b2;" ";
1 a1=x*p1+c1*p2:
1 a1=x*p1+b1*p2:
1 a$=p$(n+tir
1 a$=n$(maxcod,k
1 a$=(a$+" ")(
1 a$="PULSA UNA TECLA PARA CONTINUAR..":
1 ^f)+0.55555
1 Zonik
1 Y$=" SI UNA NAVE ATERRIZA SOBRE TI, TE COGE Y TE LLEVA. ESTATE ATENTO A LOS MENSAJES DELA RESISTENCIA.":
1 Y$=" SALVA LA RESERVA DE AGUA DE LA TIERRA DEL ATAQUE DE UNAS NAVES ESPACIALES QUE LLEGAN DEL EXTE-RIOR. TU MISION ES TAPAR LOS AGUJEROSPOR LOS QUE PONEN LAS TUBERIAS PARA SACAR EL AGUA DE LA TIERRA. SI LAS NAVES LLEGAN A UN AGUJE-RO QUE NO HAS TAPADO, ESTE SE QUEDA PARA SIEMPRE.":
1 VUELVES A JUGAR?
1 VECTOR
1 Transfer
1 Tobogan
1 TZX BY YOXXXOY0
1 TU MISION:
1 T(E)=T(E)+1
1 SOLTAR ULTIMA LLAVE
1 SOLTAR LLAVE
1 RUTINA PASOS
1 RUTINA DE MI PARADA
1 RUTINA AGUA EXTRA
1 RECORD=PUNTOS:
1 RECORD<PUNTOS
1 R(n)=M(n+6
1 Presentacion
1 Perpectiva
1 PUNTOS=PUNTOS+AGUA/100
1 PRINTOB=5000
1 P(I)=P(I)+
1 P$(PUNTOS);" PUNTOS ";
1 OTRAS ARISTAS
1 N(K)=N(J+2
1 Muerte de nave
1 Morselan
1 Micro-cal
1 MOVIMIENTO MIO
1 MOVIMIENTO DEL MALO
1 MOVIMIENTO DE LAS NAVES
1 MOVIMIENTO
1 MICROHOBBY SEMANAL 45-48
1 MICROHOBBY
1 MICRO-CALC
1 MENSAJE DE LA RESISTENCIA
1 M,HORIZONTAL;" ":
1 Logo
1 LagartijosR5
1 La mole
1 LINEAS DE F2
1 LINEAS DE F1
1 LAGARTIJOS
1 Instrucciones
1 IZQUIERDA=1
1 INICIALIZACION
1 INIALIZACION
1 HOYOS=HOYOS-1
1 HOYOS=HOYOS+1
1 HORIZONTAL>0
1 HORIZONTAL=HORIZONTAL-1
1 HORIZONTAL=HORIZONTAL+1
1 HORIZONTAL=15
1 HORIZONTAL<30
1 HOBBY PRESS
1 HASTA=HASTA+.005
1 HAS TENIDO MUCHA SUERTE! ENCONTRASTES EL TESORO DE LAS 10 LLAVES.";
1 GRAFICOS DEFINIDOS
1 Final explosion
1 Fin pantalla
1 FUNCIONES DEFINIDAS
1 F(I),C(I);N(I)
1 Enlace de fuel y base oentre fuel, base y attr bacio.
1 El pastor
1 ESCRITURA DE INSTRUCCIONES
1 EN BUSCA DEL COFRE
1 Definicion
1 DISTRIBUYE A SUBRUTINAS
1 DIRECCION=IZQUIERDA:
1 DIRECCION=IZQUIERDA
1 DIRECCION=DERECHA:
1 DIRECCION=DERECHA
1 DIRECCION=0
1 Combinato Y
1 Cofre "'
1 Clasificacion
1 Caracteres graficos
1 Captura por lobo
1 Captura de ovejas
1 Caja
1 Caida en cepo
1 CREACION DE LAS ARISTAS MAS CERCANAS A F1 , F2
1 CREACION DE LA ARISTA H
1 COSA GORDA
1 CASSETTE MAGAZINE
1 CARACTERES GIGANTES
1 CARAB (
1 CARAA &
1 CAPTURA DE TERRESTRE
1 Buzo Z
1 Bucle principal de mo- vimiento
1 Boggle
1 Basket
1 B(N)=HORIZONTAL
1 B$=" 7-AL FINAL DE CADA PARTIDA CADA JUGADOR DEBE TECLEAR LAS PALABRAS QUE HA ENCONTRADO Y EL ORDENADOR SE ENCARGA DE ANO-TAR LOS PUNTOS 8- CUANTO MAS LARGAS SON LASPALABRAS MAYOR ES SU VALOR 9- EL ORDENADOR SE ENCARGA DECONTROLAR EL TIEMPO Y DE PROPO-NER LA COMBINACION DE 16 LETRAS 10- PARA INTRODUCIR LAS PALA-BRAS ENCONTRADAS ESPERAREMOS A QUE EL ORDENADOR NOS LO PIDA TE-CLEANDOLAS EN ESE MOMENTO; CUAN-DO YA NO TENGAMOS MAS PALABRAS, PULSAREMOS 'ENTER' AHORA EMPIEZA LA PARTIDA SUERTE !!"
1 Anillos
1 AS DE LAS CUEVAS LAS TECLAS SON: Q...ARRIBA A...ABAJO O...IZQUIERDA P...DERECHA PULSA UNA TECLA PARA CONTINUAR.."
1 APOTEOSIS FINAL
1 AGUA=AGUA-HOYOS*5
1 AGUA=AGUA+200
1 A(N)=A(N)+1
1 A(N),B(N);"
1 A(I)=B(I):
1 A$=" 1- EN APROXIMADAMENTE 3 MINU-TOS CADA JUGADOR DEBE ANOTAR EN UN PAPEL EL MAXIMO DE PALABRAS POSIBLES, COMBINANDO LAS LE-TRAS PROPUESTAS 2- LAS PALABRAS DEBEN TENER MAS DE 3 LETRAS 3- LAS LETRAS QUE COMPONEN UNA PALABRA DEBEN SER CONTIGUAS POR SUS LADOS O POR SUS ANGULOS 4- LA PALABRA DEBE PODER SER DELETREADA EN SU CORRECTO ORDEN ORTOGRAFICO 5- DENTRO DE UNA PALABRA CADALETRA SOLO PUEDE SER UTILIZADA UNA VEZ 6- PODRAN JUGAR DE 1 A 7 JU- GADORES "
1 =(w=w)=(w=o
1 ;t$(a);" ";:
1 ;m$'c$'d$:
1 ;N$(I);" : ";P(I)
1 ;"y pulsa -ENTER-."
1 ;"o una rapida(C). Elige la opcion";
1 ;"locidad lenta (A),una normal (B)";
1 ;"aterrizaje"
1 ;"________________________________"
1 ;"________"
1 ;"______";
1 ;"\3/ 2!*3! 2*1*3*2*1 2 "
1 ;"X...El numero no figura en la combinacion. *...Numero acertado,posi- cion incorrecta. ^...Numero acertado,posi- cion correcta."
1 ;"VIDAS:";li;
1 ;"VIDAS: ";:
1 ;"VIDAS ";li
1 ;"TU TE LO PIERDES":
1 ;"TU ERES UN ANILLO INFILTRADO EN LAS GALERIAS DE UNA CUEVA.ESTAS EN ESTA CUEVA PUES HAS PERDIDO EL DEDO DE TU AMO.AL VER TANTOS DEDOS ALLI DECIDES RECUPERARLOS PERO TU MISION SE VERA OBSTRUIDAPOR LA PRESENCIA DE LAS CRUELES U
1 ;"TIME: ";
1 ;"TIENES QUE VOLVER A LA GRUTA DENTRO DE";
1 ;"TIEMPO : ";
1 ;"TECLAS";
1 ;"TE QUEDAN ";
1 ;"SUBCONJUNTOS DE ";n;" ELEMENTOS":
1 ;"SUBCAMPEON";
1 ;"SON DEMASIADAS LETRAS PARA BORRAR":
1 ;"SILENCIO !"
1 ;"SI QUIERES VER DE NUEVO LA DE- MOSTRACION PULSA 'D', SI LO QUE QUIERES ES EMPEZAR, PULSA CUAL- QUIER OTRA ":
1 ;"SE ACABO!!":
1 ;"SCORE ";sc;
1 ;"RECORD=";RECORD;
1 ;"RECORD:";r;"$"
1 ;"RECORD: ";s$;" = ";k:
1 ;"QUIERES LAS INSTRUCCIONES S/N":
1 ;"QUIERES JUGAR OTRA VEZ?";
1 ;"QUE PASA? TU AMO SE HA PERDIDO OTRA VEZ. TIENES QUE RECUPERARLO"
1 ;"QUE DESEA?";
1 ;"QUE BIEN!! HAS ENCONTRADO TU AMO"
1 ;"Q...Ariba.";
1 ;"Pulsa ENTER para otro juego...":
1 ;"PUNTUACIONES"
1 ;"PUNTOS=";PUNTOS;
1 ;"PUNTOS:00000";
1 ;"PUNTOS:";pun;
1 ;"PUNTOS: ";punt:
1 ;"PUNTO NUMERO";(n)'"ABCISA ? : ";xx
1 ;"PUNTO NUMERO ";(n)'"ORDENADA ? : ";yy
1 ;"PULSE UNA TECLA PARA MENU "
1 ;"PULSE UNA TECLA PARA DEMOSTRA- CION"
1 ;"PULSA UNA TECLA";
1 ;"PULSA UNA TECLA":
1 ;"PULSA UNA TECLA "
1 ;"PULSA LA TECLA CORRESPONDIENTE A LO QUE QUIERAS HACER "
1 ;"PULSA (S) O (N)"
1 ;"PASASTE LA GRUTA <<";pant;">> !!!!...."
1 ;"PARA ELLO PUEDE MOVER UNA DE LASTRES HILERAS (X,Y o Z), DE FORMAQUE TODOS CORREN UN LUGAR Y EL ULTIMO SE PONE EL PRIMERO, ESTE MOVIMIENTO PUEDE SER EN SENTIDO HORARIO (-) O ANTIHORARIO (+)"
1 ;"PANTALLA ";pan;
1 ;"PALABRAS ? "
1 ;"P...Derecha."
1 ;"O...Izquireda.";
1 ;"NOS COMPLACEMOS EN RECOMPEN- SARTE CON ";
1 ;"NECESITAS INSTRUCCIONES? (s/n)":
1 ;"NECESITAS INSTRUCCIONES ?(S/N)":
1 ;"MORSILANDIA";
1 ;"MINUSCULAS";
1 ;"MICRO-CALC"
1 ;"MEMORIAS";
1 ;"MAX.:00000";
1 ;"LO SIENTO. NO HAS RECUPERADO A TU AMO. OTRA VEZ SERA."
1 ;"LO SIENTO LE HAN COGIDO";
1 ;"LO LOGRASTE!!":
1 ;"LO HAS LOGRADO!! "''"PULSE M PARA MENU"
1 ;"LIVES ";:
1 ;"LETRA : ";
1 ;"L D";
1 ;"JUGAMOS OTRA (S/N)?"
1 ;"JUGADOR ";I;" ";N$(I,1
1 ;"JUGADA";
1 ;"JUEGAS OTRA ?"
1 ;"IRA UN NUMERO, USTED";
1 ;"INVASION";
1 ;"INTRODUZCA LOS NUMEROS"
1 ;"INTECTOS"
1 ;"INSTRUCCIONES";
1 ;"INSTRUCCIONES":
1 ;"INDICACIONES :"
1 ;"IN FRAGANTI."
1 ;"IDQUIERDA O DERECHA (I/D)?"
1 ;"HOYOS=";HOYOS
1 ;"HAS SUPERADO EL ANTERIOR RECORD":
1 ;"GUARDIANES DEL TESORO.........
1 ;"GAME OVER";
1 ;"FUEL ";fu;" ";
1 ;"F S";
1 ;"Es usted un ladron..."
1 ;"Elije la opcion que desees, cogelos mandos de tu mininave y suerte...."''"Opciones: 1> Normal. 2> Sin minas."
1 ;"ESTE PROGRAMA SE AUTODESTRUIRA DENTRO DE MOMENTOS";
1 ;"ESTE ES EL TOBOGAN";
1 ;"ESTE ES EL JUEGO DEL TOBOGAN";
1 ;"ESTA SEGURO?";
1 ;"ES ACONSEJABLE EXPERIMENTAR CON UN TOBOGAN ARMADO PARA OBTENER REGLAS GENERALES (OPCION 2) ANTES DE LANZARSE A RESOLVER UNO"
1 ;"EN SENTIDO HORARIO, CON EL 1 EN EL VERTICE SUPERIOR"
1 ;"ELIGE TU NIVEL (1/5)":
1 ;"EL TESORO ES SUYO":
1 ;"EL RECORD ES ";rec:
1 ;"EL PASTOR";
1 ;"EL LOBO":
1 ;"E E";
1 ;"DINERO";
1 ;"DESCANSE EN PAZ";
1 ;"DENTRO DE CADA CIRCULO";
1 ;"DEBES DE TENER CUIDADO CON:";
1 ;"DEBES BUSCAR A LO LARGO DE TODO EL LABERINTO DE UNA EN UNA LAS DIEZ LLAVES QUE TE ABRIRAN EL COFRE QUE TE HARA RICO.":
1 ;"DEBE ORDEBAR LOS NUMEROS";
1 ;"Correcto, Puede grabar el codigo"''"Su version es de ";48
1 ;"Cinta en REC', Pulse una tecla"
1 ;"Cinta en PLAY' para verificar"
1 ;"Cinta en 'REC', pulse una tecla "
1 ;"Cinta en 'PLAY' para verificar "
1 ;"CHIRONA"
1 ;"CENTINELAS DEL LABERINTO......
1 ;"CAMPEON";
1 ;"Buena suerte!!"
1 ;"Banco Central"
1 ;"BOGGLE";
1 ;"Antes de cargar el codigo en susprogramas, teclee:"'"CLEAR ";58431
1 ;"ANILLO LOCO":
1 ;"AGUA=";AGUA;
1 ;"A...Abajo.";
1 ;"5!= 5*4*3*2*1= 120"
1 ;"4 SALIR DEL PROGRAMA"
1 ;"3. PROFESIONAL ?"
1 ;"3 RESOLVER UN TOBOGAN";
1 ;"200 UNIDADES EXTRAS";
1 ;"20 SEGUNDOS"
1 ;"2. AFICIONADO ?";
1 ;"2 EXPERIMENTAR CON UN TOBOGAN ORDENADO";
1 ;"1. PRINCIPIANTE ?";
1 ;"1 VER LAS REGLAS";
1 ;"/5\ 5! 5*4*3*2*1 20 "
1 ;"-------------";
1 ;"****Para oir las tuyas, escribe- las y presiona-ENTER-. Cuan- do las hayas oido, pulsa una tecla."
1 ;"****Para oir la frase que tienes guardada, pulsa '`' y despu- es, pulsa -ENTER-."
1 ;"****Para cambiar la velocidad, pulsa el signo '^' y, despu- es, pulsa -ENTER-."
1 ;"****LO MAS IMPORTANTE:por fa- vor, las frases escribelas en ";
1 ;"**** Puedes elegir entre una ve-";
1 ;"$$$$$$$"
1 ;"!!HASTA LA PROXIMA!!":
1 ;"!!AQUI LA RESISTENCIA!!";
1 ;" combinaciones"
1 ;" TOTAL: ";w;" subconjuntos"
1 ;" TOTAL: ";h-1
1 ;" SI SOLO ME DA UN PUNTO, TOMO"'" EL OTRO COMO 0,0":
1 ;" SI QUIERES VER DE NUEVO LA DE- MOSTRACION PULSA 'D', SI LO QUE QUIERES ES EMPEZAR PULSA CUAL- QUIER OTRA "
1 ;" PULSE UNA TECLA PARA CONTINUAR":
1 ;" PULSE 'ENTER' PARA SEGUIR"
1 ;" PULSA UNA TECLA PARA JUGAR ":
1 ;" PULSA CUALQUIERA PARA CONTINUAR":
1 ;" PULSA CUALQUIERA PARA CONTINUAR"
1 ;" PULSA CUALQIERA PARA SEGUIR ":
1 ;" PERMUTACIONES..........2"
1 ;" PERMUTACIONES DE ";m;" ELEMENTOS ":
1 ;" PARA LA CINTA ":
1 ;" O.K. DETENGO EL PROGRAMA. PARA LISTAR PULSE 'K' Y 'ENTER' PARA SEGUIR PULSE 'C' Y 'ENTER'":
1 ;" O.K. AJUSTE DE RECTA":
1 ;" MODIFICAR ";n$(i,k
1 ;" JUEGO TERMINADO "
1 ;" FIN DEL PROGRAMA.......3"
1 ;" ERES UN HEROE ";
1 ;" Dime el numero de elementos del conjunto (MINIMO 3) y el numero de caracteres de cada elemento: "
1 ;" DAVID FERNANDEZ LORY Y CIA.":
1 ;" COMBINACIONES..........1"
1 ;" BRAVO !"
1 ;" Ahora dime cuantos elementos han de tener los subconjuntos que quieres formar (MINIMO 2)"
1 ;" - TAPA LOS AGUJEROS":
1 ;" - IZQUIERDA ";
1 ;" - DERECHA";
1 ;" MENSAJE DE LA RESISTENCIA: QUIERES VOLVER? S/N":
1 ;" Esta usted delante de la caja fuerte del banco Central.Averi- gue la combinacion en el menor numero de intentos posible y antes de que llegue la policia."
1 ;" El objetivo del juego es reco-ger todos los objetos que se en-cuentran esparcidos por el labe-rinto.Para ello deberemos esca- par de la MOLE que protege el - tesoro del laberinto.Posees tres vidas que iras perdiendo si ca-es en manos de la MOLE. Hay un pasage secreto que pue-des aprovechar para escapar de -la MOLE y en el que puedes pa- sar al siguiente nivel tras ha- ber recogido todos los objetos. "
1 ;" Dime el numero de elementos (COMO MINIMO 3) y el numero de caracteres de cada uno de ellos: "
1 ;" RECORD EN ";
1 ;" PULSA UNA TECLA "
1 ;" = _____= _________= __= 10"
1 ;" Invasion
1 ;" STOP ";
1 ;" ESPACE VUELVE A MENU "
1 ;" ";
1 ;" ":
1 ;" "
1 ;" ERROR EN DATAS "
1 ;" ALTO POLICIA ! "
1 ;" DE AGUA":
1 ;" ";
1 ;" ":
1 ;" "
1 ;" ";
1 ;"
1 2100401158E401001BEDB0C92158E411004001001BEDB0C9s
1 -(df-(dx+dx2)),dy-dy2:
1 -(df-(dx+dx2)),-(dy0-dy21):
1 ,e(f);" ";
1 ,HORIZONTAL;D$
1 ,HORIZONTAL;C$;
1 ,HORIZONTAL;"--":
1 ,HORIZONTAL;" ";
1 ,HORIZONTAL;" "
1 ,HORIZONTAL+1
1 ,HORIZONTAL)=104
1 ,B(N);" ";
1 ,B(N);" ":
1 ,"Pulsa una tecla para empezar...."
1 ," Por Carlos Cervera "
1 ," ",5
1 ," ",4
1 ," "
1 +dy-longitud:
1 *v;"K."''"Para guardar una pantalla:"'"RANDOMIZE USR ";58432
1 *v''"Para recuperarla:"'"RANDOMIZE USR ";58444
1 *v''"Para cargar el codigo, teclee:"'"LOAD ""C/M""CODE"
1 *dif)+(vi*10
1 *** NIVEL 2 ***
1 *** NIVEL 1 ***
1 ** NIVEL 4 **
1 ** NIVEL 3 **
1 ** Movimiento **
1 *(b$="SC")+1500
1 *(b$="PR")+1800
1 *(b$="ME")+1000
1 *(b$="DE")+1100
1 *(b$="BM")+900
1 *(b$="AJ")
1 );" ";p$(w+tir
1 (y-yy)/(x-xx)+(
1 (x-xx)=-u):
1 (p2/32)";:
1 (p1*p1+p2*p2):
1 (n);"...";t$(n):
1 (ll,cc)=214
1 (ll,cc)=111
1 (ll,cc)=110
1 (ll,cc)=109
1 (ll,cc)=108
1 (e/(j*i));"$"
1 (de*(np*a(4
1 (d(f),ee)=214
1 (d(f),ee)=108
1 (d(f),ee)=105
1 (a);"...";t$(a):
1 (PUNTOS)):
1 (M,HORIZONTAL)
1 '"PULSA UNA TECLA"
1 "ten esta aumentara considerable-mente."
1 "p1<-65535
1 "na, misil, tu propia nave o con-tra la tierra, en cuyo caso per-deras una de las cuatro naves que posees al principio."
1 "________________________________":
1 "Una vez aposentado en alguna de las plataformas de aterrizaje, gamaras 500 puntos y repostaras 100 litros de fuel."
1 "Tu mision es salir de la nave y recoger las maximas cajas meta- licas que puedas y aterrizar en las plataformas adecuadas para ello, sin chocar con ninguna mi-":
1 "Teclas de control: 5> Izquierda 8> Derecha 7> Reactores"
1 "TECLAS: /O/ IZQUIERDA /P/ DERECHA /Q/ SUBIR /A/ BAJAR "
1 "TAMBIEN DISPONES DE LAS TECLAS"''
1 "Si ademas caes sobre la cisternaobtendras 300 litros mas. Vijila tu fuel, pues se ira gas-tando, y con mayor rapidez si tepropulsas hacia arriba con los reactores. Si tu fuel se agota explotaras y perderas una nave, pero antes si tienes menos de 200 litros el computador de vue-lo te lo advertira intermitente-mente."
1 "SCORE ";sc;" ";
1 "Por ello se ha lanzado una gran nave que transportara a unos as-tronautas hasta ZOINK. Una vez alla divisan que una civiliza- cion anterior dejo rastros de suexistencia, minas, misiles, cis-ternas de fuel, cajas metalicascon los minerales, y plataformasde misiles y de aterrizaje."
1 "Para poder utilizarlo debes de comprender una serie de con- ceptos muy simples."'':
1 "PULSA UNA TECLA PARA EMPEZAR"
1 "PULSA UNA TECLA PARA CONTINUAR":
1 "PALABRA NO DEFINIDA","MENSAJE NO INTERPRETABLE","USO EN COMPILACION DE"
1 "P","E","R","S","P","E","C","T","I","V","A"," ","C","O","N","I","C","A"
1 "Opcion ? ";z$
1 "Objetos: ";
1 "OTRA PARTIDA ?",A$
1 "Nombre del pastor ?",a$:
1 "NUMERO DE PUNTOS? : ";np
1 "NUMERO DE JUGADORES ? ",N:
1 "NOTA: Para poder utilizar estas teclas debe de estar en la pregunta (I/D)?"'''
1 "NOMBRE DEMASIADO LARGO","No. PARAMETROS ERRONEO","NUMERO FUERA DE RANGO","NO QUEDA MEMORIA DISPONIBLE"
1 "NOMBRE DE LA IMAGEN";a$
1 "MOVIMIENTO? (M PARA MENU) ";
1 "MICRO-CALC"
1 "Luego preguntara (I/D)? respon- deras pulsando cualquiera de lasdos teclas"''
1 "Los grandes astronomos de la tierra han descubierto un nuevo planeta, ZOINK, el cual pesee una incalculable riqueza en mi- nerales necesarios para la tie- rra."
1 "Lo mejor es que lo intentes tu y probando te daras cuenta de las posibilidades que tienes coneste programa."''
1 "LONGITUD DE LA ARISTA= ";longitud
1 "LONGITUD DE LA ARISTA= ";La
1 "Invasion"
1 "Introduce tu nombre: ";
1 "Este es un programa con el que podras realizar todo tipo de PERPESTIVAS CONICAS."'':
1 "En primer lugar te dire que los focos son unos puntos de los cuales va a depender tu dibujo."'':
1 "Elementos: ";n:
1 "Elementos: ";m;" Caracteres: ";t:
1 "Elementos: ";m;" Caracteres: ";t:
1 "E-Morselan","F-Micro-cal","G-Caja","H-Boggle","I-Transfer"
1 "E-El pastor","F-Tobogan","G-Lagartijos","H-Zonik"
1 "Dificultad (1-3)";dif:
1 "Despues te pedira la arista don-de se unen los puntos que cortan las lineas que parten de los focos."'':
1 "DISTANCIA ENTRE LOS FOCOS= ";df
1 "DISTANCIA DEL PUNTO MAS ALTO DE LA ARISTA SOBRE LA LINEA M= ";dy
1 "DISTANCIA DEL PUNTO MAS ALTO DE LA ARISTA SOBRE LA LINEA H= ";dy
1 "DISTANCIA AL FOCO IZQUIERDO= ";dx
1 "DISTANCIA AL FOCO INZQIERDO= ";dx
1 "Cada 10000 puntos obtienes una nave extra pero se te dara si aterrizas, y hasta un maximo de cuatro, (las que aparecen en el panel de control son las que nosquedan todavia sin contar con laque estamos pilotando en ese mo-mento)."
1 "BM : BORRA MEMORIAS 7,8Y9 ","MEn : STACK 'X' A MEMORIA n ","DEn : FIJAR n DECIMALES ","Sx : SUMATORIO ","Nx : MENOS SUMATORIO ","PR : PROMEDIAR EL SUMATORIO","AJ : AJUSTE DE RECTA ","SC : SCROLL DE MOMORIAS "," !: FACTORIAL .K: CONSTANTE"
1 "Al principio cuando los misiles se lancen tu velocidad se vera disminuida,pero una vez explo-":
1 "A-Perpectiva","B-La mole","C-Combinato","D-Logo"
1 "A-Anillos","B-Buzo","C-Basket","D-Cofre"
1 "258")=final:
1 "257")=maxcod:
1 "2100401158E401001BEDB0C92158E411004001001BEDB0C9"
1 "10";w;" ";n$(w,k
1 ","C","A","R","L","O","S"," ","P","E","R","E","Z"," ","R","E","C","I","O"
1 "+Y","-X","-Y","+X"
1 "(Z) PARA DIBUJAR OTRA ARISTA."''
1 "(S) PARA SALVAR LA IMAGEN."''''
1 "(B) PARA BORRAR LA PANTALLA."''
1 " Una vez iluminado el campo, a- pareceran 6 ovejas,6 cepos y 3 lobos;si falta alguna de las ovejas, es porque se encuentra en el mismo lugar que un lobo o un cepo, pero el pastor los dis-tingue, ya que a las ovejas las coge con las manos, en los ceposcae por los pies y el lobo le a-trapa por la cabeza."
1 " Por ejemplo: 5!, quiere decir que un conjunto de 5 elementos podemos ordenarlo de 120 manerasdiferentes."
1 " Por ejemplo: /5\"
1 " Las permutaciones de un conjun-to de A elementos corresponden a el total de subconjuntos, que con esos mismos A elementos po- demos conseguir a base de orde- narlos de distinta manera, sin repetirlos."
1 " Las ovejas y los cepos permane-cen inmoviles mientras dura el juego, pero los lobos se mueven en la oscuridad."
1 " Las ovejas se deben recoger de una en una, pues las que se co- gen de mas, se pierden en el ca-mino y no se pueden recuperar."
1 " Hay tres niveles de dificultad,que determinan una distinta pun-tuacion y distinto numero de vi-das y bengalas y la duracion de estas."
1 " Este programa ademas de decirtecuantos, te dice cuales, para ello solo tienes que seguir sus preguntas."
1 " Este programa ademas de decirtecuantas, te dice cuales. Para ello solo tienes que seguir sus preguntas."
1 " El pastor ha perdido sus ove- jas; es de noche y para poder verlas dispone de varias benga- las (de 1 a 6), segun el grado de dificultad elegido. Para u- sarlas pulsa 'B '."
1 " El movimiento se realiza con las teclas del cursor. Las ben- galas se disparan con 'B' en cualquier momento del juego."
1 " El juego termina cuando se re- cogen las 6 ovejas, o cuando se acaban las vidas, puntuando las vidas o bengalas que resten."
1 " Como sabras, las COMBINACIONES de un numero (A) sobre otro (B),corresponden al total de subcon_juntos de B elementos que pode- mos obtener del total de A ele_ mentos, SIN REPETIR NINGUNO."
1 " NOMBRE DEL JUGADOR ";I;"?"
1 " Tus movimientos son:"
1 " Muchos han sido los osados que lo intentaron rescatar,pero fracasaron."
1 " En una cueva perdida,se haya un gran tesoro custodiado por unpulpo gigante."
1 " Ahora tu tienes la oportuni- dad de rescatarlo de las profun-didades del mar."
1 " \3/ quiere decir en realidad cuantos subconjuntosde 3 elementos podemos realizar con un conjunto de 5 elementos, que como habras visto en la de- mostracion son 10."
1 " "
1 ZX Spectrum 16-48 K.
1 Tu minimave";
1 SUMATORIO
1 SCROLL DE MEMORIAS
1 SALVA EN CINTA
1 Reactores en marcha";
1 REALIZA EL CALCULO
1 Plataforma de";
1 Plataforma aerea";
1 Pedro Silos Die **
1 PROMEDIA EL SUMATORIO
1 PERSONALES
1 PARO POR STOP
1 P E R M U T A C I O N E S
1 MENSAJES SIN DETENCION
1 MENSAJES DE ERROR
1 MENSAJES CON DETENCION
1 MENOS SUMATORIO
1 Lorenzo Diaz"
1 LA BABY DE LAS ESTRELLAS":
1 Jugadores
1 Juan Fradera";
1 Juan Fradera ":
1 Inicializacion
1 INICIALIZA VARIABLES
1 IMPRIME MEMORIAS
1 IMPRIME EL STAC
1 FIJA DECIMALES
1 FIJA CONSTANTE
1 FACTORIAL
1 DETENCION HASTA ENTER
1 DESPLAZA EL STACK
1 DEFINE FUNCIONES
1 DEBERAS DE IR A SOLTAR LAS LLAVES DE UNA EN UNA":
1 Codigo Maquina
1 Car. Graficos
1 CANASTAS
1 CALCULA CONSTANTE
1 C O M B I N A C I O N E S
1 BUCLE PRINCIPAL
1 BORRA MEMORIAS 7,8y9
1 APUNTA EN MEMORIA
1 AJUSTE DE RECTA
1 A. Gonzalez **
1 ******************
1 ** INICIALIZACION **
1 ** PRESENTACION **
1 ** S/R RESTOB **
1 ** S/R REGLAS **
1 ** S/R PRINTOB **
1 ** S/R NEOTOB **
1 ** EL TOBOGAN **
1 ** S/R VTOB **
1 ** S/R RMOV- **
1 ** S/R RMOV+ **
1 ** S/R IMOV **
1 ** S/R EMOV **
1 ** SALIDA **
1 * ALMACENAMIENTO *
1 * PANTALLAS *
1 * DE *
1 EDITOR
1 Cisterna fuel";
1 Caja con minerales";
1 COMPILACION
1 UNA TECLA
1 PULSE
1 PULSE UNA TECLA
1 "
1
1
1
1
1
1
1
1